
      integer :: IDUMMY,IASTFI,IBSTFI
      integer :: MNR1IC, MXR1IC, MNR3IC, MXR3IC
      integer :: NELCI, NAELCI, NBELCI, ISMOST, MXSB, MXSOOB
      integer :: NBLKIC, LCOLIC, MXNTTS
      real(8) :: XISPSM
      COMMON/CICISP/IDUMMY,IASTFI(MXPICI),IBSTFI(MXPICI),               &
     &              MNR1IC(MXPICI),MXR1IC(MXPICI),                      &
     &              MNR3IC(MXPICI),MXR3IC(MXPICI),MXNTTS,               &
     &              NELCI(MXPICI),NAELCI(MXPICI),                       &
     &              NBELCI(MXPICI),ISMOST(MXPCSM,MXPCSM),MXSB,MXSOOB,   &
     &              NBLKIC(MXPCSM,MXPICI),LCOLIC(MXPCSM,MXPICI),        &
     &              XISPSM(MXPCSM,MXPICI)

      
